home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / timetrak / ttrakabt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  4.5 KB  |  146 lines
  1. VERSION 2.00
  2. Begin Form ttrakabt 
  3.    BackColor       =   &H00000000&
  4.    Caption         =   "About"
  5.    ClientHeight    =   3270
  6.    ClientLeft      =   885
  7.    ClientTop       =   2820
  8.    ClientWidth     =   1800
  9.    ControlBox      =   0   'False
  10.    ForeColor       =   &H00FFFFFF&
  11.    Height          =   3675
  12.    Left            =   825
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    ScaleHeight     =   3270
  16.    ScaleWidth      =   1800
  17.    Top             =   2475
  18.    Width           =   1920
  19.    Begin PictureBox aboutbtn 
  20.       AutoSize        =   -1  'True
  21.       Height          =   1095
  22.       Left            =   360
  23.       ScaleHeight     =   1065
  24.       ScaleWidth      =   1065
  25.       TabIndex        =   6
  26.       Top             =   2040
  27.       Width           =   1095
  28.    End
  29.    Begin PictureBox musicup 
  30.       AutoSize        =   -1  'True
  31.       BackColor       =   &H00000000&
  32.       Height          =   1095
  33.       Left            =   2280
  34.       Picture         =   TTRAKABT.FRX:0000
  35.       ScaleHeight     =   1065
  36.       ScaleWidth      =   1035
  37.       TabIndex        =   0
  38.       Top             =   1680
  39.       Visible         =   0   'False
  40.       Width           =   1065
  41.    End
  42.    Begin PictureBox musicdwn 
  43.       AutoSize        =   -1  'True
  44.       BackColor       =   &H00000000&
  45.       BorderStyle     =   0  'None
  46.       Height          =   1080
  47.       Left            =   2280
  48.       Picture         =   TTRAKABT.FRX:0A76
  49.       ScaleHeight     =   1080
  50.       ScaleWidth      =   1050
  51.       TabIndex        =   5
  52.       Top             =   360
  53.       Visible         =   0   'False
  54.       Width           =   1050
  55.    End
  56.    Begin Label Label6 
  57.       BackColor       =   &H00000000&
  58.       Caption         =   "Solutions"
  59.       FontBold        =   -1  'True
  60.       FontItalic      =   0   'False
  61.       FontName        =   "MS Serif"
  62.       FontSize        =   9.75
  63.       FontStrikethru  =   0   'False
  64.       FontUnderline   =   0   'False
  65.       ForeColor       =   &H00FFFF80&
  66.       Height          =   375
  67.       Left            =   480
  68.       TabIndex        =   8
  69.       Top             =   1680
  70.       Width           =   1095
  71.    End
  72.    Begin Label Label5 
  73.       BackColor       =   &H00000000&
  74.       Caption         =   " Offsite Technical"
  75.       FontBold        =   -1  'True
  76.       FontItalic      =   0   'False
  77.       FontName        =   "MS Serif"
  78.       FontSize        =   9.75
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       ForeColor       =   &H00FFFF80&
  82.       Height          =   255
  83.       Left            =   0
  84.       TabIndex        =   7
  85.       Top             =   1440
  86.       Width           =   1815
  87.    End
  88.    Begin Label Label4 
  89.       BackColor       =   &H00000000&
  90.       Caption         =   "John W. Jaster"
  91.       ForeColor       =   &H00C0C0C0&
  92.       Height          =   255
  93.       Left            =   240
  94.       TabIndex        =   4
  95.       Top             =   1080
  96.       Width           =   1455
  97.    End
  98.    Begin Label Label3 
  99.       BackColor       =   &H00000000&
  100.       Caption         =   "by"
  101.       ForeColor       =   &H00C0C0C0&
  102.       Height          =   255
  103.       Left            =   720
  104.       TabIndex        =   3
  105.       Top             =   840
  106.       Width           =   375
  107.    End
  108.    Begin Label Label2 
  109.       BackColor       =   &H00000000&
  110.       Caption         =   "v1.0 1991"
  111.       ForeColor       =   &H000000FF&
  112.       Height          =   255
  113.       Left            =   480
  114.       TabIndex        =   2
  115.       Top             =   600
  116.       Width           =   975
  117.    End
  118.    Begin Label Label1 
  119.       BackColor       =   &H00000000&
  120.       Caption         =   "TimeTrak"
  121.       FontBold        =   -1  'True
  122.       FontItalic      =   0   'False
  123.       FontName        =   "MS Serif"
  124.       FontSize        =   13.5
  125.       FontStrikethru  =   0   'False
  126.       FontUnderline   =   0   'False
  127.       ForeColor       =   &H000000FF&
  128.       Height          =   375
  129.       Left            =   240
  130.       TabIndex        =   1
  131.       Top             =   240
  132.       Width           =   1335
  133.    End
  134. Sub aboutbtn_Click ()
  135.     Unload ttrakabt
  136. End Sub
  137. Sub aboutbtn_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
  138.     aboutbtn.picture = musicdwn.picture
  139. End Sub
  140. Sub aboutbtn_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
  141.     aboutbtn.picture = musicup.picture
  142. End Sub
  143. Sub Form_Load ()
  144.     aboutbtn.picture = musicup.picture
  145. End Sub
  146.